home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase v5.5 / SAMPLES1.PAK / FONT.WFM < prev    next >
Encoding:
Text File  |  1995-07-18  |  10.0 KB  |  437 lines
  1. *******************************************************************************
  2. *  PROGRAM:      Font.wfm
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         1/94
  7. *
  8. *  UPDATED:      5/95
  9. *
  10. *  REVISION:     $Revision:   1.25  $
  11. *
  12. *  VERSION:      Visual dBASE
  13. *
  14. *  DESCRIPTION:  This program shows how you can use different fonts to enhance
  15. *                your Visual dBASE form controls.  Most
  16. *                Visual dBASE controls allow font manipulation.
  17. *
  18. *  PARAMETERS:   None
  19. *
  20. *  CALLS:        Buttons.cc   (Custom Controls file)
  21. *
  22. *  USAGE:        DO Font.wfm
  23. *
  24. *******************************************************************************
  25. create session
  26. set talk off
  27. set ldCheck off
  28.  
  29. ** END HEADER -- do not remove this line*
  30. * Generated on 05/23/95
  31. *
  32. parameter bModal
  33. local f
  34. f = new FONTFORM()
  35. if (bModal)
  36.    f.mdi = .F. && ensure not MDI
  37.    f.ReadModal()
  38. else
  39.    f.Open()
  40. endif
  41. CLASS FONTFORM OF FORM
  42.    Set Procedure to &_dbwinhome.samples\Buttons.cc Additive
  43.    this.OnOpen = CLASS::FORM_ONOPEN
  44.    this.OnClose = CLASS::FORM_ONCLOSE
  45.    this.Left = 14.666
  46.    this.Height = 16.7051
  47.    this.Minimize = .F.
  48.    this.MousePointer = 1
  49.    this.Text = "Fonts are Fun!"
  50.    this.ColorNormal = "BTNTEXT/BTNFACE"
  51.    this.Maximize = .F.
  52.    this.Width = 78
  53.    this.PageNo = 1
  54.    this.TopMost = .F.
  55.    this.Top = 0
  56.  
  57.    DEFINE RECTANGLE RECTANGLE1 OF THIS;
  58.        PROPERTY;
  59.          Height 2.4697,;
  60.          Left 0,;
  61.          Text "",;
  62.          BorderStyle 1,;
  63.          ColorNormal "N/W",;
  64.          Width 78,;
  65.          PageNo 1,;
  66.          Border .T.,;
  67.          Top 0
  68.  
  69.    DEFINE RECTANGLE RECTANGLE2 OF THIS;
  70.        PROPERTY;
  71.          Height 12.0225,;
  72.          Left 0,;
  73.          Text "",;
  74.          BorderStyle 1,;
  75.          ColorNormal "N/W",;
  76.          Width 26,;
  77.          PageNo 1,;
  78.          Border .T.,;
  79.          Top 2.4473
  80.  
  81.    DEFINE RECTANGLE RECTANGLE3 OF THIS;
  82.        PROPERTY;
  83.          Height 12.0225,;
  84.          Left 26,;
  85.          Text "",;
  86.          BorderStyle 1,;
  87.          ColorNormal "N/W",;
  88.          Width 26,;
  89.          PageNo 1,;
  90.          Border .T.,;
  91.          Top 2.4473
  92.  
  93.    DEFINE RECTANGLE RECTANGLE4 OF THIS;
  94.        PROPERTY;
  95.          Height 12.0225,;
  96.          Left 52,;
  97.          Text "",;
  98.          BorderStyle 1,;
  99.          ColorNormal "N/W",;
  100.          Width 26,;
  101.          PageNo 1,;
  102.          Border .T.,;
  103.          Top 2.4473
  104.  
  105.    DEFINE TEXT TITLETEXT OF THIS;
  106.        PROPERTY;
  107.          Left 0.5,;
  108.          Height 1.6523,;
  109.          Text "Visual dBASE Font Samples",;
  110.          ColorNormal "R/W",;
  111.          Width 77,;
  112.          Alignment 4,;
  113.          FontName "Times New Roman",;
  114.          PageNo 1,;
  115.          Border .F.,;
  116.          FontSize 18,;
  117.          Top 0.2295
  118.  
  119.    DEFINE TEXT TEXT0 OF THIS;
  120.        PROPERTY;
  121.          Left 0.5,;
  122.          Height 1.6133,;
  123.          Text "Times New Roman",;
  124.          ColorNormal "N/W",;
  125.          Width 24.5,;
  126.          FontName "Times New Roman",;
  127.          PageNo 1,;
  128.          FontBold .F.,;
  129.          Border .F.,;
  130.          FontSize 14,;
  131.          Top 2.7393
  132.  
  133.    DEFINE TEXT TEXT1 OF THIS;
  134.        PROPERTY;
  135.          Left 0.5,;
  136.          Height 1.3789,;
  137.          Text "8 Point",;
  138.          ColorNormal "N/W",;
  139.          Width 24.5,;
  140.          FontName "Times New Roman",;
  141.          PageNo 1,;
  142.          FontBold .F.,;
  143.          Border .F.,;
  144.          Top 4.6797
  145.  
  146.    DEFINE TEXT TEXT2 OF THIS;
  147.        PROPERTY;
  148.          Left 0.5,;
  149.          Height 1.3516,;
  150.          Text "10 Point Underlined",;
  151.          ColorNormal "N/W",;
  152.          Width 24.5,;
  153.          FontName "Times New Roman",;
  154.          PageNo 1,;
  155.          FontUnderline .T.,;
  156.          FontBold .F.,;
  157.          Border .F.,;
  158.          FontSize 10,;
  159.          Top 6.0596
  160.  
  161.    DEFINE TEXT TEXT3 OF THIS;
  162.        PROPERTY;
  163.          Left 0.5,;
  164.          Height 1.3682,;
  165.          Text "12 Point Italic",;
  166.          ColorNormal "N/W",;
  167.          Width 24.5,;
  168.          FontItalic .T.,;
  169.          FontName "Times New Roman",;
  170.          PageNo 1,;
  171.          FontBold .F.,;
  172.          Border .F.,;
  173.          FontSize 12,;
  174.          Top 7.4297
  175.  
  176.    DEFINE TEXT TEXT4 OF THIS;
  177.        PROPERTY;
  178.          Left 0.5,;
  179.          Height 1.6094,;
  180.          Text "16 Point Bold",;
  181.          ColorNormal "N/W",;
  182.          Width 24.5,;
  183.          FontName "Times New Roman",;
  184.          PageNo 1,;
  185.          Border .F.,;
  186.          FontSize 16,;
  187.          Top 9.0293
  188.  
  189.    DEFINE TEXT TEXT5 OF THIS;
  190.        PROPERTY;
  191.          Left 0.5,;
  192.          Height 3.2842,;
  193.          Text "30 Point",;
  194.          ColorNormal "N/W",;
  195.          Width 24.5,;
  196.          FontName "Times New Roman",;
  197.          PageNo 1,;
  198.          FontBold .F.,;
  199.          Border .F.,;
  200.          FontSize 30,;
  201.          Top 11.0098
  202.  
  203.    DEFINE TEXT TEXT6 OF THIS;
  204.        PROPERTY;
  205.          Left 26.8887,;
  206.          Height 1.3574,;
  207.          Text "Arial",;
  208.          ColorNormal "N/W",;
  209.          Width 24.4443,;
  210.          FontName "Arial",;
  211.          PageNo 1,;
  212.          FontBold .F.,;
  213.          Border .F.,;
  214.          FontSize 14,;
  215.          Top 2.7598
  216.  
  217.    DEFINE TEXT TEXT7 OF THIS;
  218.        PROPERTY;
  219.          Left 26.8887,;
  220.          Height 1.0664,;
  221.          Text "8 Point",;
  222.          ColorNormal "N/W",;
  223.          Width 24.4443,;
  224.          FontName "Arial",;
  225.          PageNo 1,;
  226.          FontBold .F.,;
  227.          Border .F.,;
  228.          Top 4.6387
  229.  
  230.    DEFINE TEXT TEXT8 OF THIS;
  231.        PROPERTY;
  232.          Left 26.8887,;
  233.          Height 1.3516,;
  234.          Text "10 Point Underlined",;
  235.          ColorNormal "N/W",;
  236.          Width 24.4443,;
  237.          FontName "Arial",;
  238.          PageNo 1,;
  239.          FontUnderline .T.,;
  240.          FontBold .F.,;
  241.          Border .F.,;
  242.          FontSize 10,;
  243.          Top 6.0596
  244.  
  245.    DEFINE TEXT TEXT9 OF THIS;
  246.        PROPERTY;
  247.          Left 26.8887,;
  248.          Height 1.3682,;
  249.          Text "12 Point Italic",;
  250.          ColorNormal "N/W",;
  251.          Width 24.4443,;
  252.          FontItalic .T.,;
  253.          FontName "Arial",;
  254.          PageNo 1,;
  255.          FontBold .F.,;
  256.          Border .F.,;
  257.          FontSize 12,;
  258.          Top 7.4297
  259.  
  260.    DEFINE TEXT TEXT10 OF THIS;
  261.        PROPERTY;
  262.          Left 26.8887,;
  263.          Height 1.6094,;
  264.          Text "16 Point Bold",;
  265.          ColorNormal "N/W",;
  266.          Width 24.4443,;
  267.          FontName "Arial",;
  268.          PageNo 1,;
  269.          Border .F.,;
  270.          FontSize 16,;
  271.          Top 9.0293
  272.  
  273.    DEFINE TEXT TEXT11 OF THIS;
  274.        PROPERTY;
  275.          Left 26.8887,;
  276.          Height 2.7549,;
  277.          Text "30 Point",;
  278.          ColorNormal "N/W",;
  279.          Width 24.4443,;
  280.          FontName "Arial",;
  281.          PageNo 1,;
  282.          FontBold .F.,;
  283.          Border .F.,;
  284.          FontSize 30,;
  285.          Top 11.0098
  286.  
  287.    DEFINE TEXT TEXT12 OF THIS;
  288.        PROPERTY;
  289.          Left 53.2891,;
  290.          Height 1.9453,;
  291.          Text "MS Sans Serif",;
  292.          ColorNormal "N/W",;
  293.          Width 24.5439,;
  294.          PageNo 1,;
  295.          FontBold .F.,;
  296.          Border .F.,;
  297.          FontSize 14,;
  298.          Top 2.7598
  299.  
  300.    DEFINE TEXT TEXT13 OF THIS;
  301.        PROPERTY;
  302.          Left 53.2891,;
  303.          Height 1.3789,;
  304.          Text "8 Point",;
  305.          ColorNormal "N/W",;
  306.          Width 24.5439,;
  307.          PageNo 1,;
  308.          FontBold .F.,;
  309.          Border .F.,;
  310.          Top 4.6797
  311.  
  312.    DEFINE TEXT TEXT14 OF THIS;
  313.        PROPERTY;
  314.          Left 53.2891,;
  315.          Height 1.6455,;
  316.          Text "10 Point Underlined",;
  317.          ColorNormal "N/W",;
  318.          Width 24.5439,;
  319.          PageNo 1,;
  320.          FontUnderline .T.,;
  321.          FontBold .F.,;
  322.          Border .F.,;
  323.          FontSize 10,;
  324.          Top 6.0596
  325.  
  326.    DEFINE TEXT TEXT15 OF THIS;
  327.        PROPERTY;
  328.          Left 53.2891,;
  329.          Height 1.6592,;
  330.          Text "12 Point Italic",;
  331.          ColorNormal "N/W",;
  332.          Width 24.5439,;
  333.          FontItalic .T.,;
  334.          PageNo 1,;
  335.          FontBold .F.,;
  336.          Border .F.,;
  337.          FontSize 12,;
  338.          Top 7.4297
  339.  
  340.    DEFINE TEXT TEXT16 OF THIS;
  341.        PROPERTY;
  342.          Left 53.2891,;
  343.          Height 1.8975,;
  344.          Text "16 Point Bold",;
  345.          ColorNormal "N/W",;
  346.          Width 24.5439,;
  347.          PageNo 1,;
  348.          Border .F.,;
  349.          FontSize 16,;
  350.          Top 9.0293
  351.  
  352.    DEFINE TEXT TEXT17 OF THIS;
  353.        PROPERTY;
  354.          Left 53.2891,;
  355.          Height 2.7549,;
  356.          Text "30 Point",;
  357.          ColorNormal "N/W",;
  358.          Width 24.5439,;
  359.          PageNo 1,;
  360.          FontBold .F.,;
  361.          Border .F.,;
  362.          FontSize 30,;
  363.          Top 11.0098
  364.  
  365.    DEFINE ENTRYFIELD ENTRYFIELD1 OF THIS;
  366.        PROPERTY;
  367.          Left 0,;
  368.          Height 1.5293,;
  369.          ColorNormal "N/W",;
  370.          Picture "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",;
  371.          Width 61.666,;
  372.          Value "Edit Me...",;
  373.          FontName "Times New Roman",;
  374.          PageNo 1,;
  375.          FontBold .F.,;
  376.          Border .T.,;
  377.          ColorHighLight "WindowText/Window",;
  378.          FontSize 14,;
  379.          Top 15
  380.  
  381.    DEFINE PUSHBUTTON OKBUTTON OF THIS;
  382.        PROPERTY;
  383.          Left 63,;
  384.          Height 1.5293,;
  385.          Text "OK",;
  386.          ColorNormal "",;
  387.          Width 15.166,;
  388.          OnClick {;form.Close()},;
  389.          FontName "Arial",;
  390.          Default .T.,;
  391.          PageNo 1,;
  392.          Group .T.,;
  393.          FontSize 18,;
  394.          Top 15
  395.  
  396.    DEFINE SAMPLEINFOBUTTON FONTINFOBUTTON OF THIS;
  397.        PROPERTY;
  398.          Left 74.1992,;
  399.          Height 1.1943,;
  400.          Width 3.6338,;
  401.          Group .T.,;
  402.          Top 0.0996
  403.  
  404.    ****************************************************************************
  405.    Procedure Form_OnOpen
  406.    ****************************************************************************
  407.  
  408.    form.fontInfoButton.sampleName = "Font.wfm"
  409.  
  410.  
  411.    ****************************************************************************
  412.    Procedure Form_OnClose
  413.    ****************************************************************************
  414.  
  415.    close procedure &_dbwinhome.samples\Buttons.cc
  416.  
  417.  
  418.  
  419. ENDCLASS
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.